00100	C  THIS PREPARES STUFF FROM MDSK.DMP(DO PRNTX] FOR 'XIP'.
00200		DIMENSION N(4),M(50000)
00300		L=1
00400	1	READ(1)K,(M(J),J=L,L+K-1)
00600		L=L+K
00700		IF(K.EQ.1023)GO TO 1
00705		I=0
00710		J=0
00715		K=0
00720	3	K=K+3
00725	6	IF(M(K).NE.-3)GO TO 4
00730		I=I+M(K-2)
00735		J=J+M(K-1)
00737		L=L-3
00740		DO 5 JA=K-2,L
00745	5	M(JA)=M(JA+3)
00750	C  SHIFTS DATA TO DELETE (-3) FEATURE
00755		GO TO 6
00760	4	M(K-2)=M(K-2)+I
00765		M(K-1)=M(K-1)+J
00770		IF(K.LT.L)GO TO 3
00780		CALL P2DB(L,M(1))
00800		N(3)=L
00802	C  WHAT VALUE FOR L???
00900		N(1)=L+3
01000		CALL SAVB(N)
01100		TYPE 2
01200	2	FORMAT(' DON''T FORGET "FOR01.DAT" ON DSK.')
01300		END